Quick PC 61/Quick PC 61.iso/I386/SASETUP.MSI/F77689_Multiple_Log_Details.asp

Text File | 2003-02-21 | 20.5 KB | 646 lines

<%@ Language=VBScript       %>
<%    Option Explicit            %>
<%
    '-------------------------------------------------------------------------
    ' Multiple_Log_Details.asp: Serves in listing all the Multiple logs
    ' Copyright (c) Microsoft Corporation.  All rights reserved.
    '-------------------------------------------------------------------------
%>

    <!-- #include virtual="/admin/inc_framework.asp" -->
    <!-- #include virtual="/admin/ots_main.asp" -->
    <!-- #include file="loc_Log.asp" -->
    <!-- #include file="inc_Log.asp" -->

<%
    '-------------------------------------------------------------------------
    ' Global Constants
    '-------------------------------------------------------------------------
    Const NAME_COLUMN = 0
    Const TYPE_COLUMN = 1
    Const DATE_COLUMN = 2
    Const SIZE_COLUMN = 3
    Const LOGS_PER_PAGE = 100

    Dim SOURCE_FILE
    Const ENABLE_TRACING = TRUE
    SOURCE_FILE = SA_GetScriptFileName()

    '-------------------------------------------------------------------------
    ' Global Variables
    '-------------------------------------------------------------------------

    Dim page        'Variable for page creation
    Dim rc            'Return value for CreatePage

    'frame work variables
    Dim g_Type
    Dim g_bSearchChanged
    Dim g_bSearchRequested
    Dim g_iSearchCol
    Dim g_sSearchColValue
    Dim g_bPageChangeRequested
    Dim g_sPageAction

    Dim g_bPagingInitialized
    Dim g_iPageMin
    Dim g_iPageMax
    Dim g_iPageCurrent

    Dim g_iSortCol
    Dim g_sSortSequence

    Dim G_PageTitle            'To get the title accordingly
    Dim G_strLogFilePath    'FilePath

    '-------------------------------------------------------------------------
    ' Form Variables
    '-------------------------------------------------------------------------
    Dim F_strevent_title    'to get the log name.

    Dim L_PAGETITLE_LOGS_TEXT
    Dim L_TABLETITLE_TEXT


    'Getting the inputs from the earliear form
    L_PAGETITLE_LOGS_TEXT= Request.QueryString("title")

    L_TABLETITLE_TEXT=Request.QueryString("title")

    G_PageTitle = GetTitle(Request.QueryString("Title"))

    '-------------------------------------------------------------------------
    ' Entry Point
    '-------------------------------------------------------------------------
    ' Create Page
    Call SA_CreatePage(G_PageTitle ,"",PT_AREA, page )
    Call SA_ShowPage( page )

    '---------------------------------------------------------------------
    ' Function name:    OnInitPage
    ' Description:        Called to signal first time processing for this page.
    ' Input Variables:    PageIn and EventArg
    ' Output Variables:    PageIn and EventArg
    ' Return Values:    True/False
    ' Global Variables: None
    ' Called to signal first time processing for this page. Use this method
    ' to do first time initialization tasks.
    '---------------------------------------------------------------------
    Public Function OnInitPage(ByRef PageIn, ByRef EventArg)
        g_Type=Request.QueryString("type")
        OnInitPage = TRUE

        If ( ENABLE_TRACING ) Then
            Call SA_TraceOut(SOURCE_FILE, "OnInitPage")
        End If

        F_strevent_title  = Request.QueryString("Title")
        ' Set default values
        '
        ' Sort first column in ascending sequence
        g_iSortCol = 0
        g_sSortSequence = "A"

        '
        ' Paging needs to be initialized
        g_bPagingInitialized = FALSE
        '
        ' Start on page #1
        g_iPageCurrent = 1

    End Function

    '---------------------------------------------------------------------
    ' Function name:    OnServeAreaPage
    ' Description:        Called when the page needs to be served.
    ' Input Variables:    PageIn, EventArg
    ' Output Variables:    PageIn and EventArg
    ' Return Values:    TRUE to indicate no problems occured. FALSE to indicate errors.
    '                    Returning FALSE will cause the page to be abandoned.
    ' Global Variables: None
    'Called when the page needs to be served. Use this method to serve content.
    '---------------------------------------------------------------------
    Public Function OnServeAreaPage(ByRef PageIn, ByRef EventArg)

        Call ServeCommonJavaScript()

        If ( ENABLE_TRACING ) Then
            Call SA_TraceOut(SOURCE_FILE, "OnServeAreaPage")
        End If

        Dim table
        Dim iColumnFleName
        Dim iColumnFleType
        Dim iColumnDatecreated
        Dim iColumnSizeinKB
        Dim nReturn
        Dim nRowsAdded
        Dim iLogCount

        Dim objFso
        Dim objDir
        Dim objFile
        Dim strFileType
        Dim strLogFileDir
        Dim colFlags

        Dim oEncoder
        Set oEncoder = new CSAEncoder


        'Getting the dir path from the registry
        strLogFileDir=GetPath(L_TABLETITLE_TEXT)

        table = OTS_CreateTable("","")

        'Getting the FilePath of the selected log file
        G_strLogFilePath=GetPath(F_strevent_title)
        G_strLogFilePath = Server.URLEncode(G_strLogFilePath)
        '
        ' If the search criteria changed then we need to recompute the paging range
        If ( TRUE = g_bSearchChanged ) Then
            '
            ' Need to recalculate the paging range
            g_bPagingInitialized = FALSE
            '
            ' Restarting on page #1
            g_iPageCurrent = 1
        End If

        '
        ' Create columns and add them to the table
        colFlags = (OTS_COL_SEARCH OR OTS_COL_KEY OR OTS_COL_SORT)
        Call OTS_AddTableColumn(table, OTS_CreateColumnEx( L_FILENAME_TEXT, "left",colFlags, 15))

        colFlags = (OTS_COL_SEARCH OR OTS_COL_SORT)
        Call OTS_AddTableColumn(table, OTS_CreateColumnEx(  L_FILETYPE_TEXT, "left",colFlags, 36))

        colFlags = (OTS_COL_SEARCH OR OTS_COL_SORT)
        Call OTS_AddTableColumn(table, OTS_CreateColumnEx(  L_DATE_TEXT, "left",colFlags, 30))

        colFlags = (OTS_COL_SEARCH OR OTS_COL_SORT)
        Call OTS_AddTableColumn(table, OTS_CreateColumnEx( L_SIZE_TEXT, "left",colFlags, 15))

        '
        ' Set Tasks section title
        Call OTS_SetTableTasksTitle(table,  L_TASKS_TEXT)

        '
        ' Add the tasks associated with User objects

        Call OTS_AddTableTask( table, OTS_CreateTaskEx(L_VIEW_TEXT, _
                                        L_VIEW_TEXT, _
                                        "logs/Single_Log_Details.asp?" & "logtitle=" & L_PAGETITLE_LOGS_TEXT & "&tab1=" & GetTab1() & "&tab2=" & GetTab2() ,_
                                        OTS_PT_AREA,_
                                        "OTS_TaskOne") )

        Call OTS_AddTableTask( table, OTS_CreateTaskEx(L_CLEAR_TEXT, _
                                        L_CLEAR_TEXT, _
                                        "logs/Text_Log_clear.asp?FilePath="& G_strLogFilePath & "&tab1=" & GetTab1() & "&tab2=" & GetTab2(),_
                                        OTS_PT_PROPERTY,"OTS_TaskAny") )

        Call OTS_AddTableTask( table, OTS_CreateTaskEx(L_DOWNLOAD_DETAILS_TEXT, _
                                        L_DOWNLOAD_DETAILS_TEXT, _
                                        "logs/Text_MultiLog_download.asp?FilePath=" & G_strLogFilePath,_
                                        OTS_PT_AREA,"OTS_TaskOne") )

        'Logic for getting the files in the requested directory
        set objFso = CreateObject("Scripting.FileSystemObject")

        'Checking for the file existence
        If  objFso.FolderExists(strLogFileDir)=TRUE Then

            set objDir = objFso.GetFolder(strLogFileDir).Files

            'Initializing the rows added
            nRowsAdded = 0

            iLogCount = 0

            For Each objFile in objDir

                'Get the description of the file type
                strFileType = GetFileTypeDescription(mid(objFile.Name,1,2))

                If ( Len( g_sSearchColValue ) <= 0 ) Then

                    ' Search criteria blank, select all rows
                    '
                    iLogCount = iLogCount + 1

                    ' Verify that the current user part of the current page
                    If ( IsItemOnPage( iLogCount,g_iPageCurrent, LOGS_PER_PAGE) ) Then
                        Call OTS_AddTableRow( table,Array(objFile.Name,strFileType, _
                                        FormatDateTime(CDate(objFile.DateCreated)),clng(objFile.Size/1024)))
                    End If

                    '
                Else
                    '
                    ' Check the Search criteria
                    '
                    Select Case (g_iSearchCol)

                        Case NAME_COLUMN
                            '( ucase(left( arrServices(intCount,1) , len(g_sSearchColValue) )) = ucase(g_sSearchColValue) )
                            If ( ucase(left( objFile.Name , len(g_sSearchColValue) )) = ucase(g_sSearchColValue) )then
                                iLogCount = iLogCount + 1
                                '
                                ' Verify that the current user part of the current page
                                If ( IsItemOnPage( iLogCount, g_iPageCurrent, LOGS_PER_PAGE) ) Then
                                    Call OTS_AddTableRow( table,Array(objFile.Name, _
                                        strFileType, FormatDateTime(CDate(objFile.DateCreated)),clng(objFile.Size/1024)))
                                End If
                            End If

                        Case TYPE_COLUMN

                            If ( ucase(left( strFileType, len(g_sSearchColValue) )) = ucase(g_sSearchColValue) ) Then
                                iLogCount = iLogCount + 1
                                '
                                ' Verify that the current user part of the current page
                                If ( IsItemOnPage( iLogCount, g_iPageCurrent, LOGS_PER_PAGE) ) Then
                                    Call OTS_AddTableRow( table,Array(objFile.Name, _
                                        strFileType,FormatDateTime(CDate(objFile.DateCreated)),clng(objFile.Size/1024)))
                                End If
                            End If

                        Case DATE_COLUMN
                            If ( InStr(1, objFile.DateCreated, g_sSearchColValue, 1) ) Then
                                iLogCount = iLogCount + 1
                                '
                                ' Verify that the current user part of the current page
                                If ( IsItemOnPage( iLogCount, g_iPageCurrent, LOGS_PER_PAGE) ) Then
                                    Call OTS_AddTableRow( table,Array(objFile.Name, _
                                        strFileType,FormatDateTime(CDate(objFile.DateCreated)),clng(objFile.Size/1024)))
                                End If
                            End If

                        Case SIZE_COLUMN
                            If ( InStr(1, clng(objFile.Size/1024), g_sSearchColValue, 1) ) Then
                                iLogCount = iLogCount + 1
                                '
                                ' Verify that the current user part of the current page
                                If ( IsItemOnPage( iLogCount, g_iPageCurrent, LOGS_PER_PAGE) ) Then
                                    Call OTS_AddTableRow( table,Array(objFile.Name, _
                                            strFileType,FormatDateTime(CDate(objFile.DateCreated)),clng(objFile.Size/1024)))
                                End If
                            End If

                        Case Else
                            Call SA_TraceOut(SOURCE_FILE, "Unrecognized search column: " + CStr(g_iSearchCol))
                            iLogCount = iLogCount + 1
                            '
                            ' Verify that the current user part of the current page
                            If ( IsItemOnPage( iLogCount, g_iPageCurrent, LOGS_PER_PAGE) ) Then
                                Call OTS_AddTableRow( table,Array(objFile.Name, _
                                            strFileType,FormatDateTime(CDate(objFile.DateCreated)),clng(objFile.Size/1024)))
                            End If
                        End Select
                End If ' end of   If ( g_bSearchRequested ) Then
            Next ' end of For Each objFile in objDir

        End IF   'end of If  objFso.FolderExists(strLogFileDir)=TRUE

        ' Enable paging feature
        '
        Call OTS_EnablePaging(table, TRUE)

        '
        ' If paging range needs to be initialised then
        ' we need to figure out how many pages we are going to display
        If ( FALSE = g_bPagingInitialized ) Then
            g_iPageMin = 1

            g_iPageMax = Int(iLogCount / LOGS_PER_PAGE )
            If ( (iLogCount MOD LOGS_PER_PAGE) > 0 ) Then
                g_iPageMax = g_iPageMax + 1
            End If

            g_iPageCurrent = 1
            Call OTS_SetPagingRange(table, g_iPageMin, g_iPageMax, g_iPageCurrent)
        End If

            '
        ' If multiselection was requested then use multiselect OTS table
        If ( CInt(Request.QueryString("MultiSelect")) = 1 ) Then
            Call OTS_SetTableMultiSelection(Table, TRUE)
        End If

        '
        ' Sort the table
        '
        Call OTS_SortTable(table, g_iSortCol, g_sSortSequence, SA_RESERVED)

        '
        ' Send table to the response stream
        '
        Call OTS_ServeTable(table)

        'Display no log entries message if there are no logs
        If iLogCount = 0 then
            Response.Write "<Br>" & "   " & oEncoder.EncodeElement(L_NOLOGSAVAILABLE_TEXT)
        End if

        'clean the objects
        set objDir = nothing
        set objFso = nothing


        OnServeAreaPage = TRUE
    End Function


    '---------------------------------------------------------------------
    ' Function:    OnSearchNotify()
    '
    ' Synopsis:    Search notification event handler. When one or more columns are
    '            marked with the OTS_COL_SEARCH flag, the Web Framework fires
    '            this event in the following scenarios:
    '
    '            1) The user presses the search Go button.
    '            2) The user requests a table column sort
    '            3) The user presses either the page next or page previous buttons
    '
    '            The EventArg indicates the source of this notification event which can
    '            be either a search change event (scenario 1) or a post back event
    '            (scenarios 2 or 3)
    '
    ' Returns:    Always returns TRUE
    '
    '---------------------------------------------------------------------
    Public Function OnSearchNotify(ByRef PageIn, _
                                        ByRef EventArg, _
                                        ByVal sItem, _
                                        ByVal sValue )
        OnSearchNotify = TRUE

        '
        ' User pressed the search GO button
        '
        If SA_IsChangeEvent(EventArg) Then
            If ( ENABLE_TRACING ) Then
                Call SA_TraceOut(SOURCE_FILE, "OnSearchNotify() Change Event Fired")
            End If
            g_bSearchChanged = TRUE
            g_iSearchCol = Int(sItem)
            g_sSearchColValue = CStr(sValue)
        '
        ' User clicked a column sort, OR clicked either the page next or page prev button
        ElseIf SA_IsPostBackEvent(EventArg) Then
            If ( ENABLE_TRACING ) Then
                Call SA_TraceOut(SOURCE_FILE, "OnSearchNotify() Postback Event Fired")
            End If
            g_bSearchChanged = FALSE
            g_iSearchCol = Int(sItem)
            g_sSearchColValue = CStr(sValue)
        '
        ' Unknown event source
        Else
            If ( ENABLE_TRACING ) Then
                Call SA_TraceOut(SOURCE_FILE, "Unrecognized Event in OnSearchNotify()")
            End If
        End IF

    End Function


    '---------------------------------------------------------------------
    ' Function:    OnPagingNotify()
    '
    ' Synopsis:    Paging notification event handler. This event is triggered in one of
    '            the following scenarios:
    '
    '            1) The user presses either the page next or page previous buttons
    '            2) The user presses the search Go button.
    '            3) The user requests a table column sort
    '
    '            The EventArg indicates the source of this notification event which can
    '            be either a paging change event (scenario 1) or a post back event
    '            (scenarios 2 or 3)
    '
    '            The iPageCurrent argument indicates which page the user has requested.
    '            This is an integer value between iPageMin and iPageMax.
    '
    ' Returns:    Always returns TRUE
    '
    '---------------------------------------------------------------------
    Public Function OnPagingNotify(ByRef PageIn, _
                                        ByRef EventArg, _
                                        ByVal sPageAction, _
                                        ByVal iPageMin, _
                                        ByVal iPageMax, _
                                        ByVal iPageCurrent )
        OnPagingNotify = TRUE

        g_bPagingInitialized = TRUE

        '
        ' User pressed either page next or page previous
        '
        If SA_IsChangeEvent(EventArg) Then
            If ( ENABLE_TRACING ) Then
                Call SA_TraceOut(SOURCE_FILE, "OnPagingNotify() Change Event Fired")
            End If
            g_bPageChangeRequested = TRUE
            g_sPageAction = CStr(sPageAction)
            g_iPageMin = iPageMin
            g_iPageMax = iPageMax
            g_iPageCurrent = iPageCurrent
        '
        ' User clicked a column sort OR the search GO button
        ElseIf SA_IsPostBackEvent(EventArg) Then
            If ( ENABLE_TRACING ) Then
                Call SA_TraceOut(SOURCE_FILE, "OnPagingNotify() Postback Event Fired")
            End If
            g_bPageChangeRequested = FALSE
            g_sPageAction = CStr(sPageAction)
            g_iPageMin = iPageMin
            g_iPageMax = iPageMax
            g_iPageCurrent = iPageCurrent
        '
        ' Unknown event source
        Else
            If ( ENABLE_TRACING ) Then
                Call SA_TraceOut(SOURCE_FILE, "Unrecognized Event in OnPagingNotify()")
            End If
        End IF

    End Function


    '---------------------------------------------------------------------
    ' Function name:    OnSearchNotify()
    ' Description:        Search notification event handler. When one or more columns are
    '                    marked with the OTS_COL_SEARCH flag, the Web Framework fires
    '                    this event
    ' Input Variables:    PageIn,EventArg,sItem,sValue
    ' Output Variables:    PageIn,EventArg,sItem,sValue
    ' Returns:    Always returns TRUE
    '---------------------------------------------------------------------
    Public Function OnSearchNotify(ByRef PageIn, _
                                        ByRef EventArg, _
                                        ByRef sItem, _
                                        ByRef sValue )
            OnSearchNotify = TRUE

            '
            ' User pressed the search GO button
            '
            If SA_IsChangeEvent(EventArg) Then
                g_bSearchRequested = TRUE
                g_iSearchCol = Int(sItem)
                g_sSearchColValue = CStr(sValue)
            '
            ' User clicked a column sort, OR clicked either the page next or page prev button
            ElseIf SA_IsPostBackEvent(EventArg) Then
                g_bSearchRequested = FALSE
                g_iSearchCol = Int(sItem)
                g_sSearchColValue = CStr(sValue)
            '
            ' Unknown event source
            Else
                'Call SA_TraceOut("LOGS_AREA", "Unrecognized Event in OnSearchNotify()")
            End IF


    End Function

    '---------------------------------------------------------------------
    ' Function:            OnPagingNotify()
    ' Function name:    OnPagingNotify()
    ' Description:        Paging notification event handler.
    ' Input Variables:    PageIn,EventArg,sPageAction,iPageMin,iPageMax,iPageCurrent
    ' Output Variables:    PageIn,EventArg
    ' Return Values:    Always returns TRUE
    ' Global Variables: G_*
    '---------------------------------------------------------------------
    Public Function OnPagingNotify(ByRef PageIn, _
                                        ByRef EventArg, _
                                        ByVal sPageAction, _
                                        ByVal iPageMin, _
                                        ByVal iPageMax, _
                                        ByVal iPageCurrent )
            OnPagingNotify = TRUE

            g_bPagingInitialized = TRUE

            '
            ' User pressed either page next or page previous
            '
            If SA_IsChangeEvent(EventArg) Then
                g_bPageChangeRequested = TRUE
                g_sPageAction = CStr(sPageAction)
                g_iPageMin = iPageMin
                g_iPageMax = iPageMax
                g_iPageCurrent = iPageCurrent
            '
            ' User clicked a column sort OR the search GO button
            ElseIf SA_IsPostBackEvent(EventArg) Then
                g_bPageChangeRequested = FALSE
                g_sPageAction = CStr(sPageAction)
                g_iPageMin = iPageMin
                g_iPageMax = iPageMax
                g_iPageCurrent = iPageCurrent
            '
            ' Unknown event source
            Else
                'Call SA_TraceOut("LOGS_AREA", "Unrecognized Event in OnPagingNotify()")
            End IF

    End Function

    '---------------------------------------------------------------------
    ' Function:            OnSortNotify()
    ' Function name:    GetServices
    ' Description:        Sorting notification event handler.
    ' Input Variables:    PageIn,EventArg,sortCol,sortSeq
    ' Output Variables:    PageIn,EventArg
    ' Return Values:    Always returns TRUE
    ' Global Variables: G_*
    '---------------------------------------------------------------------
    Public Function OnSortNotify(ByRef PageIn, _
                                        ByRef EventArg, _
                                        ByVal sortCol, _
                                        ByVal sortSeq )
        OnSortNotify = TRUE

        g_iSortCol = sortCol
        g_sSortSequence = sortSeq

    End Function

    '-------------------------------------------------------------------------
    ' Function name:        GetFileTypeDescription
    ' Description:            gives the description of the type of file
    ' Input Variables:        Filetype
    ' Output Variables:        None
    ' Return Values:        String
    ' Global Variables:        None
    '-------------------------------------------------------------------------
    Function GetFileTypeDescription( strFileType )

        Dim strTemp

        'constants used for the description of the type of file
        Const CONST_EX    =    "ex"
        Const CONST_IN    =    "in"
        Const CONST_NC    =    "nc"


        select case strFileType
            case CONST_EX
                strTemp = L_LOGFORMATW3C_TEXT
            case CONST_IN
                strTemp = L_LOGFORMATIIS_TEXT
            case CONST_NC
                strTemp = L_LOGFORMATNCSA_TEXT
            case else
                strTemp = L_LOGFORMATUNKNOWN_TEXT
        end select

        GetFileTypeDescription=strTemp
    End Function

    '---------------------------------------------------------------------
    ' Function:    ServeCommonJavaScript
    '
    ' Synopsis:    Serve common javascript that is required for this page type.
    '
    '---------------------------------------------------------------------
    Function ServeCommonJavaScript()
    %>
    <script>
    function Init()
    {
    }
    </script>
    <%
    End Function

    '-------------------------------------------------------------------------
    ' Function name:    IsItemOnPage
    ' Description:        Serves in Verifying that the current user part of the current page
    ' Input Variables:    iCurrentItem, iCurrentPage, iItemsPerPage- current item
    ' Output Variables:    None
    ' Return Values:    TRUE/FALSE
    ' Global Variables: None
    ' Serves in Verifying that the current user part of the current page
    '-------------------------------------------------------------------------
    Private Function IsItemOnPage(ByVal iCurrentItem, iCurrentPage, iItemsPerPage)
        Dim iLowerLimit
        Dim iUpperLimit

        iLowerLimit = ((iCurrentPage - 1) * iItemsPerPage )
        iUpperLimit = iLowerLimit + iItemsPerPage + 1

        If ( iCurrentItem > iLowerLimit AND iCurrentItem < iUpperLimit ) Then
            IsItemOnPage = TRUE
        Else
            IsItemOnPage = FALSE
        End If

    End Function
%>